:JVERSION = 3.00nArial, 0, 9, 5, 15, 12, 32, 3, 0 Webdings, 0, 6, 8, 16, 11, 32, 5, 0 MS Sans Serif, 0, 9, 5, 13, 11, 11, 2, 0 tbar1PixelsClass11toolbartbar1þòÿ êêÇ(%ƒ¡—üU&¯÷÷÷÷þuÆ÷þ<Æ÷þUNBUTTONNSHIFTNXCOORDNYCOORDSHORTCUT MouseEnter,ÿÿ112x)êƒPROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord DEACTIVATE POPUP shortcut RELEASE POPUP shortcut ENDPROC }Top = 3 Left = 232 Height = 22 Width = 23 Picture = ..\database.bmp Caption = "" SpecialEffect = 2 Name = "Command6" tbar1Command6 commandbutton commandbuttonþòÿ êêÇ(%ƒ¡—üU&¯÷÷÷÷þuÆ÷þ<Æ÷þUNBUTTONNSHIFTNXCOORDNYCOORDSHORTCUT MouseEnter,ÿÿ112x)êƒPROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord DEACTIVATE POPUP shortcut RELEASE POPUP shortcut ENDPROC }Top = 3 Left = 209 Height = 22 Width = 23 Picture = ..\toolbar2.bmp Caption = "" SpecialEffect = 2 Name = "Command5" tbar1Command5 commandbutton commandbuttonATop = 3 Left = 209 Height = 0 Width = 0 Name = "Separator3" tbar1 Separator3 separator separatorMþòÿ 44Ü{%¢ÛËüUt&þUW™üCÙTableôöýþ™üCÙQueryôöýþ™üCÙFormôöýþ™üCÙReportôöýþUTHISADDITEMInteractiveChange,ÿÿInit8ÿÿ1Q2QQAa1,G¡)4¬PROCEDURE InteractiveChange ACTIVATE SCREEN ENDPROC PROCEDURE Init THIS.AddItem("Table") THIS.AddItem("Query") THIS.AddItem("Form") THIS.AddItem("Report") ENDPROC zFontName = "MS Sans Serif" Height = 22 Left = 102 SpecialEffect = 2 Style = 2 Top = 3 Width = 100 Name = "Combo1" tbar1Combo1comboboxcomboboxATop = 3 Left = 102 Height = 0 Width = 0 Name = "Separator2" tbar1 Separator2 separator separatorþòÿ êêÇ(%ƒ¡—üU&¯÷÷÷÷þuÆ÷þ<Æ÷þUNBUTTONNSHIFTNXCOORDNYCOORDSHORTCUT MouseEnter,ÿÿ112x)êƒPROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord DEACTIVATE POPUP shortcut RELEASE POPUP shortcut ENDPROC |Top = 3 Left = 72 Height = 22 Width = 23 Picture = ..\connectn.bmp Caption = "" SpecialEffect = 2 Name = "Command3" tbar1Command3 commandbutton commandbuttonþòÿ êêÇ(%ƒ¡—üU&¯÷÷÷÷þuÆ÷þ<Æ÷þUNBUTTONNSHIFTNXCOORDNYCOORDSHORTCUT MouseEnter,ÿÿ112x)êƒPROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord DEACTIVATE POPUP shortcut RELEASE POPUP shortcut ENDPROC xTop = 3 Left = 49 Height = 22 Width = 23 Picture = ..\menu.bmp Caption = "" SpecialEffect = 2 Name = "Command4" tbar1Command4 commandbutton commandbutton@Top = 3 Left = 49 Height = 0 Width = 0 Name = "Separator1" tbar1 Separator1 separator separatorþòÿ þþ¯%2•müU™¯÷÷÷÷þ%üôô÷ýùaþTôô÷ü-ýþTôôô÷üøýþTô÷üøýþBþþTôô÷üaýþTô÷üøýþ™üCôôö ýþU NBUTTONNSHIFTNXCOORDNYCOORDTHISPARENT LPOPUPSETCOMMAND1 VISUALEFFECTSHOWDROPDOWNMENU)¯÷÷÷÷þTôô÷üøýþUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCOMMAND1 VISUALEFFECTB¯÷÷÷÷þ%üô÷ø ýù;þTôô÷üøýþþUNBUTTONNSHIFTNXCOORDNYCOORDTHIS VISUALEFFECTTHISFORMCOMMAND1 MouseDown,ÿÿ MouseEnter/ÿÿ MouseLeave¡ÿÿ112aAA31121Q1A1% F—¸,)þ7PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord IF THIS.Parent.lPopupset THIS.Parent.lPopupset = .F. THIS.Parent.Command1.visualeffect = 0 THIS.visualeffect = 0 RETURN ENDIF THIS.Parent.lPopupset = .T. THIS.visualeffect = 2 THIS.Parent.showdropdownmenu() ENDPROC PROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord THISFORM.Command1.visualeffect = 1 ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord IF !THIS.visualeffect = 2 THISFORM.Command1.visualeffect = 0 ENDIF ENDPROC ‡Top = 3 Left = 28 Height = 22 Width = 14 FontName = "Webdings" FontSize = 6 Caption = "6" SpecialEffect = 2 Name = "Command2" tbar1Command2 commandbutton commandbutton¸þòÿ ŸŸÖÛ%F8üU)¯÷÷÷÷þTôô÷üøýþUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCOMMAND2 VISUALEFFECT)¯÷÷÷÷þTôô÷üøýþUNBUTTONNSHIFTNXCOORDNYCOORDTHISFORMCOMMAND2 VISUALEFFECT MouseEnter,ÿÿ MouseLeavežÿÿ1113112iŠÝ)ŸèPROCEDURE MouseEnter LPARAMETERS nButton, nShift, nXCoord, nYCoord THISFORM.Command2.visualeffect = 1 ENDPROC PROCEDURE MouseLeave LPARAMETERS nButton, nShift, nXCoord, nYCoord THISFORM.Command2.visualeffect = 0 ENDPROC Top = 3 Left = 5 Height = 22 Width = 23 Picture = ..\table.bmp Caption = "" ToolTipText = "Table" SpecialEffect = 2 Name = "Command1" tbar1Command1 commandbutton commandbuttonCcsavepath imagepath lpopupset *showdropdownmenu *updateitem  íþòÿ Ô Ô `Ä%2 [ n üUç®÷÷÷÷þ ®÷÷þ®÷÷÷÷ þ®÷ ÷ ÷ ÷ þ ®÷÷þ®÷þ T÷üC¿ýþT÷üá9÷ýþ%ü÷øýù'þT÷üá9÷ýþT÷ üá9÷ýþT÷üá9÷ýþT÷üá9÷ýþT÷ üáC÷ýþT÷ üáC÷ýþT÷ üáC÷ýþT÷ üáC÷ýþTá9÷üøýþT÷üá9÷ýþT÷üá9÷ýþùÔþT÷üá9÷ýþT÷üá9÷ýþTá9÷üøýþT÷üá9÷ýþT÷ üá9÷ýþT÷üá9÷ýþT÷üá9÷ýþT÷ üáC÷ýþT÷ üáC÷ýþT÷ üáC÷ýþT÷ üáC÷ýþþTá9÷ü÷ýþ&T÷ü÷÷ Cø ê%Cøê%Cøê%ýþT÷ü÷÷ Cøê%ýþ Hù2ùaþ üô÷ð ô÷ø ýùŠþ:T÷üùÿÿ÷ô÷ôô÷ôô÷ø÷÷ ýþ üô÷ð ô÷ø ýùÝþ5T÷ü÷ô÷ôô÷ôô÷ø÷÷ ýþ üô÷ýùþ-T÷üô÷ôô÷ôô÷÷÷ ýþ2ùaþ?T÷üô÷ôô÷ôô÷Cø"ê%Cøê%ø÷÷ ýþþ Hùrùhþ üô÷ð ô÷ø ýù½þ-T÷üùÿÿ÷ô÷ôô÷÷÷ ýþ üô÷ð ô÷ø ýùøþT÷ü÷ ô÷÷÷ ýþ üô÷ýù6þ.T÷üCøê%ô÷ôô÷ø÷÷ ýþ2ùhþ*T÷üCøê%ô÷ôô÷÷÷ ýþþt&þsÆ÷ü÷ýü÷ýÌWþ/süøýÃ÷"üÙTableýÂüô÷Ù table.bmpýþ/süøýÃ÷"üÙQueryýÂüô÷Ù query.bmpýþ.süøýÃ÷"üÙFormýÂüô÷Ù forms.bmpýþ1süøýÃ÷"üÙReportýÂüô÷Ù report.bmpýþ21ÐüøýÃ÷û _solutiontbar1.UpdateItem(BAR())þ21ÐüøýÃ÷û _solutiontbar1.UpdateItem(BAR())þ21ÐüøýÃ÷û _solutiontbar1.UpdateItem(BAR())þ21ÐüøýÃ÷û _solutiontbar1.UpdateItem(BAR())þtÆ÷þ öüøýþ™üCê÷êÜýþV%üCÙ aMObj[1].NamebÙCðCCøå÷fÙCOMMAND2 ðCCøå÷fÙTBAR1 ýù…þùÁþTô÷ü-ýþTôô÷üøýþTôô÷üøýþþ%üC÷¡ ýùàþ t,ü÷ýþþU LNROWLNCOLLNSAVESCALEMODE LCACTIVEWIN LNFOXELHEIGHT LNFOXELWIDTH LNPIXELTOP LNPIXELLEFT LNPIXELHEIGHT LNPIXELWIDTH LNVPIXELTOP LNVPIXELLEFTLNVPIXELHEIGHT LNVPIXELWIDTHLNTOPROWDOCKOFFSETLNLEFTCOLDOCKOFFSETAMOBJ SCALEMODEHEIGHTWIDTHTOPLEFTTHISDOCKED DOCKPOSITIONCOMMAND1SHORTCUT IMAGEPATHNAME LPOPUPSET VISUALEFFECTCOMMAND2u¯÷þ HùùEþ ü÷øýù`þ#Tôô÷üô÷Ù table.bmpýþTôô÷üÙTableýþ ü÷øýù¬þ#Tôô÷üô÷Ù query.bmpýþTôô÷üÙQueryýþ ü÷øýù÷þ#Tôô÷üô÷Ù forms.bmpýþTôô÷üÙFormýþ ü÷øýùEþ$Tôô÷üô÷Ù report.bmpýþTôô÷üÙReportýþþt&þ$øüÙYou selected: ôô÷ýþUNBARNUMTHISCOMMAND1PICTURE IMAGEPATH TOOLTIPTEXT T÷üÙýþ<÷þU_SOLUTIONTBAR1›®÷þ7÷þ T÷ü÷ýþ&T÷üCøêQÙsolution\table.bmpýþ%üCõ ÷0 ýù~þ+T÷üCêQÙsamples\solution\table.bmpýþþTô÷üCC÷êÕêÍýþU LCTMPFILE_SOLUTIONTBAR1THIS IMAGEPATHshowdropdownmenu,ÿÿ updateitem‰ÿÿDestroy< ÿÿInitg ÿÿ12±11±qÁñññññññññññññññññññññññAñcÓá¢áRÑòAÓáÑáÑá¡ARbññá"!!!‚Ñábá11A±A3qÔ111qA‘ARA3Ñq3qqÑb!±Aa20PQ­bbËözeù)Ô PROCEDURE showdropdownmenu #DEFINE STATUSBAR_HEIGHT 24 LOCAL lnRow,lnCol,lnSaveScaleMode,lcActiveWin LOCAL lnFoxelHeight,lnFoxelWidth LOCAL lnPixelTop,lnPixelLeft,lnPixelHeight,lnPixelWidth LOCAL lnVPixelTop,lnVPixelLeft,lnVPixelHeight,lnVPixelWidth LOCAL lnTopRowDockOffset,lnLeftColDockOffset LOCAL aMObj lcActiveWin = WOUTPUT() lnSaveScaleMode = _SCREEN.ScaleMode IF lnSaveScaleMode = 3 &&pixels lnPixelHeight = _SCREEN.Height lnPixelWidth = _SCREEN.Width lnPixelTop = _SCREEN.Top lnPixelLeft = _SCREEN.Left lnVPixelHeight = _VFP.Height lnVPixelWidth = _VFP.Width lnVPixelTop = _VFP.Top lnVPixelLeft = _VFP.Left _SCREEN.ScaleMode = 0 lnFoxelHeight = _SCREEN.Height lnFoxelWidth = _SCREEN.Width ELSE lnFoxelHeight = _SCREEN.Height lnFoxelWidth = _SCREEN.Width _SCREEN.ScaleMode = 3 lnPixelHeight = _SCREEN.Height lnPixelWidth = _SCREEN.Width lnPixelTop = _SCREEN.Top lnPixelLeft = _SCREEN.Left lnVPixelHeight = _VFP.Height lnVPixelWidth = _VFP.Width lnVPixelTop = _VFP.Top lnVPixelLeft = _VFP.Left ENDIF _SCREEN.ScaleMode = lnSaveScaleMode * Row offset equals menu+titlebar+windowframe lnTopRowDockOffset = lnPixelTop - lnVPixelTop - SYSMETRIC(9) - SYSMETRIC(20) - SYSMETRIC(4) lnLeftColDockOffset = lnPixelLeft - lnVPixelLeft - SYSMETRIC(4) * Get row Position for menu DO CASE CASE THIS.Docked AND THIS.DockPosition = 0 &&toolbar is docked to top lnRow = -1 * (lnTopRowDockOffset - THIS.Top - THIS.Command1.Top - ; THIS.Command1.Height + 1) * lnFoxelHeight / lnPixelHeight CASE THIS.Docked AND THIS.DockPosition = 3 &&toolbar is docked to bottom lnRow = (lnPixelHeight + THIS.Top + THIS.Command1.Top + THIS.Command1.Height -1) *; lnFoxelHeight / lnPixelHeight CASE THIS.Docked &&one of the sides lnRow = (THIS.Top + THIS.Command1.Top + THIS.Command1.Height) * lnFoxelHeight / lnPixelHeight OTHERWISE lnRow = (THIS.Top + THIS.Command1.Top + THIS.Command1.Height + ; SYSMETRIC(34) + SYSMETRIC(4) - 1) * lnFoxelHeight / lnPixelHeight ENDCASE * Get Column offset based on which control you want to display under DO CASE CASE THIS.Docked AND THIS.DockPosition = 1 &&toolbar is docked left lnCol = -1 * ((lnLeftColDockOffset - THIS.Left - THIS.Command1.Left) * lnFoxelWidth / lnPixelWidth) CASE THIS.Docked AND THIS.DockPosition = 2 &&toolbar is docked right lnCol = (lnPixelWidth + THIS.Left) * lnFoxelWidth / lnPixelWidth CASE THIS.Docked lnCol = (SYSMETRIC(3) + THIS.Left + THIS.Command1.Left - 4) * lnFoxelWidth / lnPixelWidth OTHERWISE lnCol = (SYSMETRIC(3) + THIS.Left + THIS.Command1.Left) * lnFoxelWidth / lnPixelWidth ENDCASE ACTIVATE SCREEN DEFINE POPUP shortcut SHORTCUT FROM lnRow,lnCol RELATIVE DEFINE BAR 1 OF shortcut PROMPT "Table" PICTURE THIS.ImagePath + "table.bmp" DEFINE BAR 2 OF shortcut PROMPT "Query" PICTURE THIS.ImagePath + "query.bmp" DEFINE BAR 3 OF shortcut PROMPT "Form" PICTURE THIS.ImagePath + "forms.bmp" DEFINE BAR 4 OF shortcut PROMPT "Report" PICTURE THIS.ImagePath + "report.bmp" ON SELECTION BAR 1 OF shortcut _solutiontbar1.UpdateItem(BAR()) ON SELECTION BAR 2 OF shortcut _solutiontbar1.UpdateItem(BAR()) ON SELECTION BAR 3 OF shortcut _solutiontbar1.UpdateItem(BAR()) ON SELECTION BAR 4 OF shortcut _solutiontbar1.UpdateItem(BAR()) ACTIVATE POPUP shortcut DIMENSION aMObj[1] AMOUSEOBJ(aMObj) IF TYPE("aMObj[1].Name")="C" AND UPPER(aMObj[1].Name)="COMMAND2" AND UPPER(aMObj[2].Name)="TBAR1" ELSE THIS.lPopupset = .F. THIS.Command1.visualeffect = 0 THIS.Command2.visualeffect = 0 ENDIF IF !EMPTY(lcActiveWin) ACTIVATE WINDOW (lcActiveWin) ENDIF ENDPROC PROCEDURE updateitem LPARAMETERS nBarNum #DEFINE WAITWINPROMPT_LOC "You selected: " DO CASE CASE nBarNum = 1 THIS.Command1.Picture = THIS.ImagePath + "table.bmp" THIS.Command1.ToolTipText = "Table" CASE nBarNum = 2 THIS.Command1.Picture = THIS.ImagePath + "query.bmp" THIS.Command1.ToolTipText = "Query" CASE nBarNum = 3 THIS.Command1.Picture = THIS.ImagePath + "forms.bmp" THIS.Command1.ToolTipText = "Form" CASE nBarNum = 4 THIS.Command1.Picture = THIS.ImagePath + "report.bmp" THIS.Command1.ToolTipText = "Report" ENDCASE ACTIVATE SCREEN ? WAITWINPROMPT_LOC + THIS.Command1.ToolTipText ENDPROC PROCEDURE Destroy _solutiontbar1="" RELEASE _solutiontbar1 ENDPROC PROCEDURE Init LOCAL lcTmpfile PUBLIC _solutiontbar1 _solutiontbar1 = THIS lcTmpfile = HOME(2)+"solution\table.bmp" IF !FILE(m.lcTmpfile) lcTmpfile = HOME()+"samples\solution\table.bmp" ENDIF THIS.ImagePath = ADDBS(JUSTPATH(lcTmpFile)) ENDPROC dCaption = "My Toolbar" Height = 28 Left = 19 Top = 7 Width = 260 csavepath = Name = "tbar1" toolbar